home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 May / 64er_Magazin_89-05_1989_Markt__Technik_de.d64 / logelei luege (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  264b  |  13 lines
  1. 100 rem logelei: luege        64'er '89
  2. 110 for p=-1 to 0
  3. 120 for m=-1 to 0
  4. 130 for o=-1 to 0
  5. 200 w=(p<>m)
  6. 210 w=w and (m<>o)
  7. 220 w=w and (o<>(mandp))
  8. 250 if w then p1=p:m1=m:o1=o:p=1:m=1:o=1
  9. 300 next o,m,p
  10. 500 if p1 then print"paul luegt."
  11. 510 if m1 then print"max luegt."
  12. 520 if o1 then print"otto luegt."
  13.